home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Tunnel.AMOS / Tunnel.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  801 b   |  29 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Hide : Cls 0
  11. Palette 0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$E,$D,$C,$B,$A,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0,$0
  12. Shift Up 1,1,31,1
  13. C#=1.1
  14. P#=1
  15. Do 
  16.  
  17.    Ink P#
  18.    OX=X
  19.    OY=Y
  20.    X=159+Sin(A)*C#
  21.    Y=127+Cos(A)*C#
  22.    
  23.    If OX<>0 and OY<>0 Then Draw X,Y To OX,OY
  24.    Add A,2
  25.    C#=C#+0.001
  26.    P#=P#+0.01
  27.    If P#>31 Then P#=1
  28.  
  29. Loop